home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M450.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  4KB  |  166 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     Goto LABEL001
  30.     End
  31.     If (0 == 0) STRING001 = "NO"
  32.     If (0 == 1) STRING001 = "YES"
  33.  
  34.     EndFunc
  35.  
  36.     :LABEL001
  37.     STRING006 = String(PcbNode())
  38.     If (PcbNode() == 0) STRING006 = "A"
  39.     STRING007 = GetEnv(STRING006 + "RECNO")
  40.     STRING007 = ToInteger(STRING007)
  41.     STRING002 = "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
  42.     Gosub LABEL004
  43.     DGet 0, "LEVEL", STRING003
  44.     DGet 0, "HANDLE", STRING005
  45.     STRING005 = Mixed(Trim(STRING005, " "))
  46.     :LABEL002
  47.     Cls
  48.     PrintLn 
  49.     PrintLn 
  50.     PrintLn "@X0FVirtual Reality Soldier - @X0ACryo-Suspension Chamber@X0F"
  51.     PrintLn STRING002
  52.     PrintLn 
  53.     PrintLn "@X03You enter a dimly lit room, a flickering bulb over the exit on the other"
  54.     PrintLn "@X03side of the room is crackling.  the door suddenly opens and a small hunched"
  55.     PrintLn "@X03disoriented fellow walks in.  Dr. Sonombulus catches sight of you and wadles"
  56.     PrintLn "@X03over.  So " + STRING005 + " you want to sleep for a while...eh?"
  57.     PrintLn 
  58.     PrintLn "@X03Dr. Sonombulus pushs a booklet into your hands, and waddles out again, the"
  59.     PrintLn "highlights of the book are thus:  You give up all of your Cash, both banked"
  60.     PrintLn "and in hand, you lose your armor, and you lose all of your weapons, but for"
  61.     PrintLn "this, you get nearly eternal life, in the CRYO-CUBE.  When you next wake up"
  62.     PrintLn "many days could have passed, but you will still be your same old self, sans"
  63.     PrintLn "anything you own. So go enjoy your vactaion, and when you wake up, you will"
  64.     PrintLn "still be here!  Sounds pretty good to you so..."
  65.     PrintLn 
  66.     STRING004 = ""
  67.     InputStr "@X0BDo you need to sleep for a long time @X02(@X0A" + YesChar() + "@X02/@X0A" + NoChar() + "@X02)", STRING004, 10, 1, "", 8 + 16384 + 2 + 4 + 128 + 32
  68.     If (STRING004 == "") Goto LABEL002
  69.     If (STRING004 == "N") Goto LABEL005
  70.     If (STRING004 == "Y") Then
  71.         :LABEL003
  72.         Print "@X0BOk, ", STRING005, " how many days do you want to sleep for"
  73.         STRING004 = ""
  74.         InputStr "", STRING004, 10, 3, Mask_Num(), 2 + 4
  75.         If (STRING004 == "") Goto LABEL003
  76.         Cls
  77.         PrintLn "@X03You settle into the comfy Cryo-Chair, and settle back as the canopy closes"
  78.         PrintLn "@X03around you.  You start to feel very sleepy, and in the haze you feel your"
  79.         PrintLn "@X03armor stripped off, weapons removed, and you feel a hand rooting around in"
  80.         PrintLn "@X03your pockets.  All in all a pleasant way to drift off..."
  81.         DPut 0, "VITALITY", "C"
  82.         PrintLn "@X0EDescent into CRYO-CUBE complete "
  83.         DPut 0, "CASH", 0
  84.         PrintLn "@X0ECash removed."
  85.         DPut 0, "BANKED", 0
  86.         PrintLn "@X0EBank accounts closed and funds turned over to the state."
  87.         DPut 0, "WEAPN0", "0"
  88.         PrintLn "@X0EWeapons sold at auction."
  89.         DPut 0, "WEAPN1", "0"
  90.         DPut 0, "WEAPN2", "0"
  91.         PrintLn "@X0EArmor stripped and sold for scrap."
  92.         DPut 0, "ARMOR_N", "0"
  93.         PrintLn "@X0CCryo-Lock set for @X8C", STRING004, "@X0C days!@X0F"
  94.         DPut 0, "CRY_DATE", STRING004
  95.         Delay (2 * 182) / 10
  96.     Else
  97.         :LABEL004
  98.         DCloseAll
  99.         DOpen 0, PPEPath() + "USER.DBF", 0
  100.         DGo 0, STRING007
  101.         Return
  102.     Endif
  103.     :LABEL005
  104.     DCloseAll
  105.     End
  106.  
  107. ;------------------------------------------------------------------------------
  108. ;
  109. ; Usage report (before postprocessing)
  110. ;
  111. ; ■ Statements used :
  112. ;
  113. ;    2       End
  114. ;    2       Cls
  115. ;    6       Goto 
  116. ;    10      Let 
  117. ;    1       Print 
  118. ;    28      PrintLn 
  119. ;    7       If 
  120. ;    2       InputStr 
  121. ;    1       Gosub 
  122. ;    1       Return
  123. ;    1       Delay 
  124. ;    1       EndFunc
  125. ;    1       DOpen 
  126. ;    2       DCloseAll
  127. ;    1       DGo 
  128. ;    2       DGet 
  129. ;    8       DPut 
  130. ;
  131. ;
  132. ; ■ Functions used :
  133. ;
  134. ;    1       *
  135. ;    1       /
  136. ;    14      +
  137. ;    7       ==
  138. ;    1       !
  139. ;    1       Trim()
  140. ;    1       NoChar()
  141. ;    1       YesChar()
  142. ;    1       String()
  143. ;    1       Mask_Num()
  144. ;    1       PPEPath()
  145. ;    2       PcbNode()
  146. ;    1       GetEnv()
  147. ;    1       ToInteger()
  148. ;    1       Mixed()
  149. ;
  150. ;------------------------------------------------------------------------------
  151. ;
  152. ; Analysis flags : No flag
  153. ;
  154. ;------------------------------------------------------------------------------
  155. ;
  156. ; Postprocessing report
  157. ;
  158. ;    0       For/Next
  159. ;    0       While/EndWhile
  160. ;    1       If/Then or If/Then/Else
  161. ;    0       Select Case
  162. ;
  163. ;------------------------------------------------------------------------------
  164. ;                 AEGiS Corp - Break the routines, code against the machines!
  165. ;------------------------------------------------------------------------------
  166.